home *** CD-ROM | disk | FTP | other *** search
/ Super PC 19 / Super PC 19 (Curso OS-2 y shareware).iso / cursoos2 / qlee.bnd (.txt) < prev    next >
Encoding:
DB2 Bind  |  1993-05-19  |  2.3 KB  |  65 lines
  1. QELIB   NAN1MNJIPIONEER 3
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. DECLARE C1 CURSOR  FOR ST1
  5. PREPARE ST1 FROM :stmt
  6. OPEN C1
  7. FETCH C1 INTO :buf
  8. CLOSE C1
  9. BEGIN DECLARE SECTION
  10. END DECLARE SECTION
  11. DECLARE C2 CURSOR  FOR ST2
  12. PREPARE ST2 FROM :stmt
  13. OPEN C2
  14. FETCH C2 INTO :auth
  15. CLOSE C2
  16. DECLARE C3 CURSOR  FOR ST3
  17. PREPARE ST3 INTO :temp  FROM :stmt
  18. DESCRIBE ST3 INTO :temp 
  19. DECLARE C4 CURSOR  FOR ST4
  20. CLOSE C4
  21. EXECUTE ST4 USING DESCRIPTOR :temp 
  22. OPEN C4 USING DESCRIPTOR :temp 
  23. EXECUTE ST4
  24. OPEN C4
  25. DECLARE C5 CURSOR  FOR ST5
  26. FETCH C5 USING DESCRIPTOR :temp 
  27. CLOSE C5
  28. DECLARE C6 CURSOR  FOR ST6
  29. PREPARE ST6 INTO :sqlda  FROM :stmt
  30. OPEN C6
  31. DECLARE C7 CURSOR  FOR ST7
  32. PREPARE ST7 INTO :sqlda  FROM :stmt
  33. OPEN C7
  34. DECLARE C8 CURSOR  FOR ST8
  35. PREPARE ST8 INTO :sqlda  FROM :stmt
  36. OPEN C8
  37. COMMIT
  38. ROLLBACK
  39. DECLARE C9 CURSOR  FOR ST9
  40. CLOSE C9
  41. DECLARE C10 CURSOR  FOR ST10
  42. PREPARE ST10 FROM :stmt
  43. DECLARE C11 CURSOR  FOR ST11
  44. DECLARE C12 CURSOR  FOR ST12
  45. DECLARE C13 CURSOR  FOR ST13
  46. DECLARE C14 CURSOR  FOR ST14
  47. DECLARE C15 CURSOR  FOR ST15
  48. DECLARE C16 CURSOR  FOR ST16
  49. DECLARE C17 CURSOR  FOR ST17
  50. DECLARE C18 CURSOR  FOR ST18
  51. DECLARE C19 CURSOR  FOR ST19
  52. DECLARE C20 CURSOR  FOR ST20
  53. DECLARE C21 CURSOR  FOR ST21
  54. DECLARE C22 CURSOR  FOR ST22
  55. DECLARE C23 CURSOR  FOR ST23
  56. DECLARE C24 CURSOR  FOR ST24
  57. DECLARE C25 CURSOR  FOR ST25
  58. DECLARE C26 CURSOR  FOR ST26
  59. DECLARE C27 CURSOR  FOR ST27
  60. DECLARE C28 CURSOR  FOR ST28
  61. DECLARE C29 CURSOR  FOR ST29
  62. DECLARE C30 CURSOR  FOR ST30
  63. DECLARE C31 CURSOR  FOR ST31
  64. DECLARE C32 CURSOR  FOR ST32
  65.